How Would You Survive?/How Would You Survive (1995)(Grolier)[Mac-PC].iso/pc/vikingw.dir/01651_Script_Clothes

Text File | 1995-09-12 | 9KB | 256 lines

global gbeenclicked, gQuest

on VClothesRollovers1
  set gbeenclicked = 0
  if (not(CheckClickedStatus(gQuest))) then
    if rollover(6) then
      repeat while rollover(6)
        puppetsprite 7, true
        set the locH of sprite 7 to 291
        set the locV of sprite 7 to 109
        updatestage
      end repeat
      set the locH of sprite 7 to 999
      updatestage
      puppetsprite 7, false
    else
      if rollover(8) then
        repeat while rollover(8)
          puppetsprite 9, true
          set the locH of sprite 9 to 405
          set the locV of sprite 9 to 353
          updatestage
        end repeat
        set the locH of sprite 9 to 999
        updatestage
        puppetsprite 9, false
      else
        if rollover(10) then
          repeat while rollover(10)
            puppetsprite 11, true
            set the locH of sprite 11 to 388
            set the locV of sprite 11 to 288
            updatestage
          end repeat
          set the locH of sprite 11 to 999
          updatestage
          puppetsprite 11, false
        else
          if rollover(12) then
            repeat while rollover(12)
              puppetsprite 13, true
              set the locH of sprite 13 to 402
              set the locV of sprite 13 to 253
              updatestage
            end repeat
            set the locH of sprite 13 to 999
            updatestage
            puppetsprite 13, false
          else
            if rollover(14) then
              repeat while rollover(14)
                puppetsprite 15, true
                set the locH of sprite 15 to 297
                set the locV of sprite 15 to 140
                updatestage
              end repeat
              set the locH of sprite 15 to 999
              updatestage
              puppetsprite 15, false
            else
              if rollover(16) then
                repeat while rollover(16)
                  puppetsprite 17, true
                  set the locH of sprite 17 to 417
                  set the locV of sprite 17 to 213
                  updatestage
                end repeat
                set the locH of sprite 17 to 999
                updatestage
                puppetsprite 17, false
              else
                if rollover(18) then
                  VikingCursor
                  repeat while rollover(18)
                    puppetsprite 19, true
                    set the locH of sprite 19 to 324
                    set the locV of sprite 19 to 317
                    updatestage
                    if (the mousedown) then
                      set gbeenclicked = 1
                    else
                      -- the mouse is up
                      if gbeenclicked = 1 then
                        repeat while gbeenclicked = 1
                          AnimateLoop 18, 756, 3, "SV200800.AIF", 1
                        end repeat
                      end if
                    end if
                  end repeat
                  set the locH of sprite 19 to 999
                  updatestage
                  puppetsprite 19, false
                else
                  if rollover(20) then
                    repeat while rollover(20)
                      puppetsprite 21, true
                      set the locH of sprite 21 to 480
                      set the locV of sprite 21 to 265
                      updatestage
                    end repeat
                    set the locH of sprite 21 to 999
                    updatestage
                    puppetsprite 21, false
                  else
                    if rollover(22) then
                      repeat while rollover(22)
                        puppetsprite 26, true
                        set the locH of sprite 26 to 480
                        set the locV of sprite 26 to 331
                        updatestage
                      end repeat
                      set the locH of sprite 26 to 999
                      updatestage
                      puppetsprite 26, false
                    else
                      if rollover(27) then
                        repeat while rollover(27)
                          puppetsprite 28, true
                          set the locH of sprite 28 to 480
                          set the locV of sprite 28 to 358
                          updatestage
                        end repeat
                        set the locH of sprite 28 to 999
                        updatestage
                        puppetsprite 28, false
                      else
                        if rollover(39) then
                          repeat while rollover(39)
                            puppetsprite 43, true
                            set the locH of sprite 43 to 204
                            set the locV of sprite 43 to 345
                            updatestage
                          end repeat
                          set the locH of sprite 43 to 999
                          updatestage
                          puppetsprite 43, false
                        else
                          if rollover(40) then
                            HandCursor
                          else
                            if rollover(41) then
                              HandCursor
                            else
                              if rollover(42) then
                                HandCursor
                              else
                                ArrowCursor
                              end if
                            end if
                          end if
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  RandomQuestion(gQuest)
end

on VClothesRollovers2
  set gbeenclicked = 0
  if (not(CheckClickedStatus(gQuest))) then
    if rollover(6) then
      ArrowCursor
      repeat while rollover(6)
        set the locH of sprite 19 to 342
        set the locV of sprite 19 to 275
        updatestage
      end repeat
      set the locH of sprite 19 to 999
      updatestage
    else
      if rollover(8) then
        ArrowCursor
        repeat while rollover(8)
          set the locH of sprite 9 to 498
          set the locV of sprite 9 to 289
          updatestage
        end repeat
        set the locH of sprite 9 to 999
        updatestage
      else
        if rollover(10) then
          ArrowCursor
          repeat while rollover(10)
            set the locH of sprite 11 to 473
            set the locV of sprite 11 to 281
            updatestage
          end repeat
          set the locH of sprite 11 to 999
          updatestage
        else
          if rollover(12) then
            ArrowCursor
            repeat while rollover(12)
              set the locH of sprite 13 to 478
              set the locV of sprite 13 to 337
              updatestage
            end repeat
            set the locH of sprite 13 to 999
            updatestage
          else
            if rollover(14) then
              ArrowCursor
              repeat while rollover(14)
                set the locH of sprite 15 to 227
                set the locV of sprite 15 to 322
                updatestage
              end repeat
              set the locH of sprite 15 to 999
              updatestage
            else
              if rollover(16) then
                ArrowCursor
                repeat while rollover(16)
                  set the locH of sprite 17 to 334
                  set the locV of sprite 17 to 247
                  updatestage
                end repeat
                set the locH of sprite 17 to 999
                updatestage
              else
                if rollover(39) then
                  HandCursor
                else
                  if rollover(41) then
                    HandCursor
                  else
                    if rollover(42) then
                      HandCursor
                    else
                      ArrowCursor
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  RandomQuestion(gQuest)
end